DEFINITION MODULE ApplTool;

(*
Application Tools.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

FROM PORTAB IMPORT UNSIGNEDWORD;

(*
Type = 0: Out1 = font height of the normal AES font
          Out2 = font id
          Out3 = type of font:
                   0 = system font
                   1 = FSM-GDOS font
                 >=2 = reserved

Type = 1: Out1 = font height of the small AES font
          Out2 = font id
          Out3 = type of font:
                   0 = system font
                   1 = FSM-GDOS font
                 >=2 = reserved

Type = 2: Out1 = current screen resolution
          Out2 = number of colors supported by the AES
          Out3 = supporting color icons yes/no
          Out4 = new resource file formta yes/no

Type = 3: Out1 = language:
                   0 = english
                   1 = german
                   2 = french
                   3 = spanish
                   4 = italian
                   5 = swedish

caution: full information only since AES version 4.0
*)

PROCEDURE ApplGetInfo(    Type: UNSIGNEDWORD;
                      VAR Out1: UNSIGNEDWORD;
                      VAR Out2: UNSIGNEDWORD;
                      VAR Out3: UNSIGNEDWORD;
                      VAR Out4: UNSIGNEDWORD);

END ApplTool.
